home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / shazam11.zip / ED.EVT < prev    next >
Text File  |  1991-11-04  |  1KB  |  36 lines
  1.    {-------------------------------------------------------------------
  2.    
  3.    -------------------------------------------------------------------}
  4. procedure heOpen ;
  5. begin
  6.    if ExecDialog ( New ( PFileDialog ,
  7.                    Init ( FileSpec , 'Open file',
  8.                           '~N~ame' ,
  9.                           fdOpenButton , 100 ) ) ,
  10.                    @FileSpec) = cmCancel then EXIT ;
  11.    OpenEditor ( FileSpec , TRUE ) ;
  12. end ;
  13.    {-------------------------------------------------------------------
  14.    
  15.    -------------------------------------------------------------------}
  16. procedure heNew ;
  17. begin
  18.    OpenEditor ( '' , TRUE ) ;
  19. end ;
  20.    {-------------------------------------------------------------------
  21.    
  22.    -------------------------------------------------------------------}
  23. procedure heChangeDir ;
  24. begin
  25.    ExecDialog ( New ( PChDirDialog ,
  26.                       Init ( cdNormal , 0 ) ) , NIL ) ;
  27. end ;
  28.    {-------------------------------------------------------------------
  29.    
  30.    -------------------------------------------------------------------}
  31. procedure heShowClipboard ;
  32. begin
  33.    ClipWindow^.Select ;
  34.    ClipWindow^.Show ;
  35. end ;
  36.